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MM MM TTTTTTTTTT HH HH GGGGGGGG MM MM INI] NN NN 11 
MM MM TTTTTTTTTT HH HH GGGGGGGG MM MM HII! NN NN 11 
MMMM MMMM TT HH HH GG MMMM MMMM I] NN NN 1111 
MMMM MMMM TT HH H GG MMMM MMMM I] NN NN 1111 
4m 60MM OMM TT HH HH GG MM 6M OMB I] NNNN NN 11 
MM 66MM OMM TT HH HH GG MM MA MM II NNNN NN 11 
MM MM TT HHHHHHHHHH = GG MM MM II NN NN NN 11 
iM MM TT HHHHHHHHHH = GG MM MM I] N 11 
MM MM TT HH HH GG GGGGGG MM MM II NN NNNN 11 
MM MM TT HH HH GG GGGGGG MM MM I] NN NNNN 11 
MM MM TT HH HH G GG MM MM II NN NN 11 eee 
MM MM TT HH HH GG GG MM MM I] NN NN 11 eeee 
MM MM TT HH HH GGGGGG MM MM III! NN NN 111111 cove 
MM MM TT HH HH GGGGGG MM MM III! NN NN 111111 eeee 
LL III! SSSSSSSS 
LL i111 SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] SS 
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BTHSGAIN' GMIN1 function 16-SEP-1984 01:29:03 VAX/VMS Macro V04-00 Page 0 “i 
Table of contents 

¢@ g HISTO ; Detailed Current Edit History 

(5) DECLARATIONS 

(4) 0 MTHSGM 


GMIN1 function 16-SEP-1984 01:29: AX/VMS Macro v04-0 Pa 1 
g Hits 94:33:03 YEAR TE SREIRTMORINT «MAR: 1 - (1) 

N ction 

i THGMIM1.MAR 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


TH OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ON N_ ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
I ANY OTHER 
Pp 


4 ; 
2 3 
;* ® 
° $33 : 
§ is : 
32 wy 
09 10 ;* te 
0 11 3 * 
00019 is : 
15 ;3* USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR * 
00 14 3% ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
0900 16 :* TRANSFERRED. * 
4 ® 
4 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0 38 19 3* D OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8008 y :* CORPORATION. . 
44 § * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
$8 
° ® 
st § ITITITIIIII IIIT IIT III TTITI TILL Titi LLL t TL LLL EEL i TELL T EEL 
0000 8 ; 
0000 ; : FACILITY: MATH LIBRARY 
000 1 : ABSTRACT: 
0000 § 3 This module contains routine MTHS$GMIN1: 
0000 3 Return the smaller of n G floating-point 
3808 4; numbers. 
4 > 3 
000 § ; 
0000 3 
0000-305 
2 40 > VERSION: 1 
6 4@ : HISTORY: 
44 : AUTHOR: 
22 3 Steven B. Lionel, 18-Jan-79: Version 1 
23 : MODIFIED BY: 
48 ; 
49 ; 
50 ; 


it eae aie area Current Edit on "BrSEB=]S82 94:58:93 PANAHTE SRESRrHomiAy mar:1 P29 (3) 


-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 1 of MTHS$GMIN1 
: 1-001 - Original. SBL 18-Jan-79 


IN] function 16-SEP-1984 01: AX/VMS Macro v04-0 
ECLARATIONS See 18Be 94:88:83 PARAMS Bate Mee Ol mans1 P28 68 
59 .SBTTL DECLARATIONS 
: INCLUDE FILES: 
: NONE 
64 ; 
65 
96 3 
00 6? : EXTERNAL SYMBOLS: 
000 68 NONE 
0 4 3 
800: 
009 7¢ } MACROS 
00 73: NONE 
000 «7%: 
000 75 
000 76 
000 77 } PSECT DECLARATIONS: 
00000000 «78 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 79 
0000 80 ; 
000 81 : EQUATED SYMBOLS: 
9000 82 ; NONE 
0000 «8S : 
0000 —«B& 
0000 «8S : 
0000 86 : OWN STORAGE: 
0000 «87 : NONE 
0000 «8B: 
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MTHSGMINI GMIN1 function 16-SEP-1984 AX/VMS v04-00 P 4 
1-001 RTHSGMINI Beer 188 94:53:93 LA NANRS eect ete mars? P28 (dy 
Ba -SBTTL MTHSGMINI 
; "FUNCTIONAL DESCRIPTION: 
¢ : hy the minimum of n arguments, n is greater than or equal 
4 3; CALLING SEQUENCE: 
190 3 Minimum.wg.v = MTHSGMIN1 ({arg.rg.r)) 
: ; 
1 3 INPUT PARAMETERS: 
0 104 ; The mn parameters are G floating point values 
0 105 ; and are call-by-reference. 
38 196 : 
00 198 : IMPLICIT INPUTS 
aii a 
0000 111 ; OUTPUT PARAMETERS: 
000 i 3 NONE 
4 113 ; 
00 114 ; IMPLICIT OUTPUTS: 
000 115; NONE 
000 138 3 
000 117 ; COMPLETION CODES: 
4 118 ; NONE 
00 119; 
380 120 ; SIDE EFFECTS: 
44 ! 1: Reserved Operand exception can occur. 
000 1 § $ 
000 124 ;-- 
O60 125 
0004 00 1 $ ENTRY MTHSGMINI, “M<R2> 
52 6C 9A 000 1 MOVZBL (AP), R ; R2 = ong ce + A 
8&C 5 000 1 8 STL (AP) + : AP => f 
50 9C SOFD bbe 129 1$ MOVG a(AP)+, RO : RO/R1 = trial ‘nin 
09 11 130 BRB 3$ ; gheck | arg c 
50 00 BC SIFD 0 131 2$ CMPG @0(AP), RO :; if this arg “3 less than trial min 
F 19 1 1 ; BLSS 1$ : then it soseues new trial min 
8¢ d 1 1 TSTL (AP) + : else ignore i 
F4 y 16 134 3$ SOBGTR R2, 2$ 3; return if ara $e ‘gaunt exausted 
04 1 135 T : with min in RO/R 
a. os $ 
1A 
O1A 138 END 
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MTHSGMINI GMIN1 functi 16-SEP=-1 AX/VMS o V04-00 P 
Symbol table ae din mt 1 ot $3 93 ERTARTL see SATHGMINT MAR: 1 — 
MTHSGMIN1 00000000 RG 01 
= wecceccosecesco 
; Psect Synopsis: : 
PSECT name Allocation PSECT No. Attributes 
ABS 60008 00 ¢ , 9.3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
“MTHSCODE OOOOOIA (¢ -) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
poe sess esavceo aces eee eee 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 :00:00.06 :00:00.91 
gonnens processing "8 3:8 0:56 0 
Synbol table sort 30 9 0: 0:00 90:88:91 87 
Symbol table output 1 ° ° 8°01 0:00: 0.04 
Psect synopsis output 3 :00: a4 b 08:8 a3 
Cross-reference output 0:00: 9? 0:00:00.0 
Assembler run totals 259 00:00:01.36 00:00:08.28 


The wpratng et fo ty A? 900 peges. 

1387 bytes (3 pages) virtual memory were used to out rer the intermediate code. 

There were 10 pages of ‘al table space ariecoree § hold 1 non-local and 3 local symbols. 
source Lines were read in Pass 1, producin object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Ser ew nee rece mew emo wea acauns } 


wee meee me ee ee eee we ee ew ee wet 


Macro Library name Macros defined 
“S255SDUAZ8:(SYSLIBJSTARLET.MLB32 0 (itt “e 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:MTHGMIN1/OBJ=OBJ$:MTHGMIN1 MSRCS$:MTHGMIN1/UPDATE=(ENHS:MTHGMIN1 ) 
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